RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F I LE**1D**RSDERM 
RRRRRRRR SSSSSSSS DDDDDDDD EEEEEEEEEE RRRRRRRR MM MM 
RRRRRRRR SSSSSSSS DDDDDDDD EEEEEEEEEE RRRRRRRR MM MM 
RR RR SS DD DD EE RR RR MMMM MMMM 
RR RR SS DD DD EE RR RR MMMM MMMM 
RR RR SS DD DD EE RR RR MM MM MM 
RR RR SS DD DD EE RR RR MM MM MM 
RRRRRRRR SSSSSS DD DD EEEEEEEE RRRRRRRR MM MM 
RRRRRRRR SSSSSS DD DD EEEEEEEE RRRRRRRR MM MM 
RR RR SS DD DD EE RR RR MM MM 
RR RR SS DD DD EE RR RR MM MM 
RR RR SS DD DD EE RR RR MM MM 
RR RR SS 0D DD EE RR RR MM MM 
RR RR SSSSSSSS DDDDDDDD EEEEEEEEEE RR RR MM MM 
RR RR SSSSSSSS DDDDDDDD EEEEEEEEEE RR RR MM MM 
LL III] 
LL III] 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 


I! SSSSSSSS 

I] SSSSSSSS 
| 
| 


ep pe pe ioleieiolololelelelelelololelelolelelolololeo) 


SSSSssssssssssss Cooooocoocoo OOCOCOCoCooCoooo 
BEEBE FANN AAAI PPUNIPINIPIDINIDYD 2 = OO S| S DOOOOOOOCO 


AAS WN 9 ODNAUN EWN O ODNAU EWN (OC ODONOAULS WA S(O OONOUS wn 
i a ak a ak tk at ak a at a tt tt ot ot 2 I BOOOOOOO 


= 
AVE WN OO ODNAOUE WN OC ODNAOUES WN (OVO ONAOUEWN S$ OOONAUS WN 


BEE E FF AWNAAAAWINI GIR POPUP NONPONNND 2 2 ee 
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11 
error checks and messages. 16-5 -1984 40:15 AxX-11 BLi 
. 1 ~3e 71 38E a Be 
TITLE "Misc. error checks and messages.’ 
MODULE RSDERM ( 
IDENT = ‘'V04-000' 
48L1SS32C 


ADDRESSING MODE (EXTERNAL =LONG, RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)ez 


BEGIN 


SRR RARER AERA AREA AAA AE EAE EAE AAA AAA A TEAR AAAAEAA AAAS 


See RRA REAR AARARARAAAA AREA AA AEE E AEA EEEE 


ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
FaansteRatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE ee aes THIS SOFTWARE IS SUBJ 


E THOUT NOTIC 
BE CONSTRUED AS A COMM 


CT TO CHANGE WI E 
IT IGITAL EQUIPMENT 


AND SH MENT BY DIG 

CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


| FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Residual error messages. Issues error messages for various 


error corditions for which no error messages have been 
ssued. 


Also contains error detection and error message routines 
that are called from more than one location. 


ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: June, 1978 


s 
6 RUNOFF .SRCJRSDERM.BLI; 
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54 


WR OCONAOULS WN O0On 


Global edit of all Yaodules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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error checks and messages. 16-Sep-1 AX-11 Bliss-32 V4.0-7 P 
on History ° ae ets Pak) er ors Pe i. 
} aad "Revision History‘ 
! MODIFIED BY: 
1 / 006 REM00006 a Marshall 22-June-1983 
1 i Modified routine" TSTTFE to now look to see if we are within a 
1 i f so, it issues an error and closes forces a 
; “END LITERAL. 
1 i 005 FA00005 Alden 18-Mar-1983 
: Made SAVE/RESTORE™ related items visible to DSR. 
: 004 REMO00004 Ray Marshall 07-Mar-1983 
1 i 
1 i 
1 le 
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11 
RSDERM Misc. error checks and messages. 18-5¢ =1984 01:40:15 AX-11 Bliss-32 V4.0-74 p i 
Von~000 Module Level Declarations ° 1 =300 71382 93:69:22 RUNOFF .SRCJIRSDERM.BLI; ch 3} 


: $8 : } ZSBTTL ‘Module Level Declarations’ | : 
; 6 066 REQUIRE "REQ:RNODEF'; ! RUNOFF variant definitions : 
: a 198 1! F 
; 4 19 i TABLE OF CONTENTS: ; 
es, of 1 FORWARD ROUTINE : 
; 7% 0 1 tstblk : NOVALUE, : 
. 03 1 tstcnd : NOVALUE, : 
3 7 06 «1 tstres : NOVALUE, : 
nae 5 1 tsttfe : NOVALUE, 
3 78 1 pntbac : NOVALUE, : 
; 79 07 1 negind : NOVALUE, : 
; 0 oS 1 remneg : NOVALUE, : 
; 1 8 09 1 xmarg : NOVALUE, : 
3 ; 10 1 remmrg : NOVALUE; : 
; 3 0 1 i , : 
; & 0518 | | INCLUDE FILES: 
Bh BT : 
; 88 Q216 1 LIBRARY 'NXPORT:XPORT" ; ! XPORT Library : 
: U Ogi8 1 XIE DSRPLUS STHEN 
; U 9 19 LIBRARY *REQ:DPLLIB'; ! DSRPLUS BLISS Library : 
: 0 $f 1 LIBRARY 'REQ:DSRLIB'; ! DSR BLISS Library : 
3 0 $§ 1 FI 3 
3 0 4 3 
: 9 41! 

; 5 1 ! MACROS: 

° 0 . 

; 0 5 1 i 

: 0228 1 ! EQUATED SYMBOLS: 

: O81 i 

; 6 1 1 ! OWN STORAGE: 

: sie | 

: 6 4 1 | EXTERNAL REFERENCES: 

3 0235 : ! 

; 1 EXTERNAL 

; : 1 ca : gca_definition, 

; 1 fstk : ifstack, 

: 40 1 Savstk : savstack 

; 41 irac : irac_definition; 

; rk 1 EXTERNAL 

3 44 «1 frmstd, 

; rf ' frmstk : form_stack; 

: 47 1 EXTERNAL LITERAL ‘Error messages 

3 rk 1 rnfbak, 

: 8 4 ' rnfide, 


WIS SSSSATNISSRLESRERESSELSSLALLES 


a et kt ts ot st = = ts 9 4 YH YH SH 


rnfmei, 


POF eT oS ag ge 
RUNOFF ..SRCJRSDERM.BLI; 
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PNTMNOPR- DOO CUIPI~TW OR. COO 


Se cel eel cee a ee es 


rN 


K == test for unclosed .NOTE or .LIST dire 1 


nn 
uy 
oo 
fre 


WN | O OONOVUESWH "OOO OU fwn— 
OO OOODDODOWODOONIN NINN NNO 


DONANE WN $9 ODNAULS WN OC OONAOULS Wi O00 


OWONOUSWN—OO 
oouo0ono 


QESRANLS 


=A LPINPIPIPINPIPINIPIPINIPII A) a at at st tt tt at at a 


GOOOCOCOCOOSOSOSCOSCOOOOOCOSOOSOOSOOOCOOOOOCOOOOOCOOOOOOOO -—-s 
WAAIWAIAWIWNWw 


a a kk dd od oo 
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11 
error checks and messages 1b-5e -1984 01:40:15 AX-11 Bliss-32 V4.0-74 
° =300 71382 04:99:13 RUNOFF .SRCIRSDERM.BLI: 


ZSBTTL ‘TSTBLK == test for unclosed .NOTE or .LIST directives’ 
GLOBAL ROUTINE tstblk (depth) : NOVALUE = 


lee 
! FUNCTIONAL DESCRIPTION 
This routine checks to see if FRMSTK is ok: i.e., certain open 
-NOTE and .LIST commands have been closed. If there are any 
unclosed commands it issues an error message and pops the stack. 
FORMAL PARAMETERS: 
DEPTH specifies the maximum allowed depth of .REQUIRE commands. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 
BEGIN 
IF .frmstd EQL 0 THEN 
RETURN; 


'No unclosed Lists, notes, or literals. 


IF “Gepth GTR .frmstk C.frmstd, frmstk_req.d] THEN 
RETURN; '‘Unclosed Lists or notes, but in files still open. 


erm (rnftfe, 0, 0); ‘There are unclosed Lists/notes to be reported. 
'Now point the user back to those commands that have not been closed 


WHILE ih, tracted GTR 0) AND (.depth LEQ .frmstk C.frmstd, frmstk_req_dJ)) DO 


pntbac (); 
stkfrm (1); 'Unstack one entry, regardless of identity. 


END; ‘End of TSTBLK 


TLE RSDERM Misc. error checks and messages. 
ENT \v04-000\ 


GCA, IFSTK 
XTRN IRAC, FRMSTD, FRMSTK 
RNF RNFLOE, RNFMEI 


T 
I 

.E SAVSTK 

‘E a 
EXTRN RNFMRC. RNEMRG, RNFMRS 
*E 

"E 

*E 


XTRN RNFNIA, RNENIC, RNFSKC 
x FIFE. ERM, ERML 
, lit, SAVRES 


TST Bk =-- test 


000000006 fF 


50 

6240 
00000000v 
00000000G_ EF 


RSDERM Misc. error checks and message 
VOu~000 for unc losed AL: or .LIST dire 1 


ibcdeo-19Be 01:40:15 


Wwommn 


-o 


TVOoOO— FO COo~IWw>r OWOmMm 
— 
Sad 


Mm $$ OWA MOWWM OM OW 


SmVRSSRUIM No BNUWSSVoe 
OMNFRODRWSM ISO 


om MON OOO TOS OO- 
OM fH LFnocon Lf 


OoOooooooo 


SCOOCOOOoCOooCoOoSoOo 
SOOGOGOOCOCOOCOOCOOOoooO 


~m 
bed 


; Routine Size: 81 bytes, Routi®e Base: SCODE$ + 0000 


SCODES,NOWRT,2 
TSTBLK, Save R2,R3 
FRMS 

FRNSTK220 R2 
FRMSTD, RO 

pert, FRMSTK=20CROJ 
=(SP) 
WRNE TFE 
#3, ERM 

FRMSTD, RO 
#15, RO 
ePTH, FRMSTK=20(R0] 
#0, PNTBAC 
#1, =(SP) 


#1, STKFRM 
1$ 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJRSDERM.BLI; 
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OOCOCOCCOCCOCOCO = 


VLSDONSARWWASSRVEA RW LOGS GEAR ODEO 


RIPIPINIPINININININININININININININININININID 2 2 2 OO OO Oo SS 


SOCOCOCCOOCOOOOOCOOOOOOOOOOOOoOO 


NNN) 


s u -1984 AX-11 Bliss-32 V4.0-7 P 7 
D == Check and report aissing -ENDIFs 16- Sep-1984 9}: 93 M7 RUNOFF .SRCJRSDERM. Bit: me (5) 


ZSBTTL 'TSTCND == Check and report missing .ENDIFs’ 
GLOBAL ROUTINE tstcnd (depth) : NOVALUE = 


FUNCTIONAL DESCRIPTION 


{FORMAL PARAMETERS: 
DEPTH specifies the maximum allowed depth of .REQUIRE commands. 


IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 

i ROUTINE VALUE: 

! COMPLETION CODES: None 

i SIDE EFFECTS: None 
BEGI 


N 
'Check for missing .ENDIF commands. This is temporary coding. In a 
ilater version this code should point back to the opening commands, 
‘Like the code above does for .LIST and .NOTE commands. 


IF .ifstk CO, ifstk depth] EQL 0 THEN 
RETURN; ‘There are no missing .ENDIF commands. 


IF .depth EQL 0 THEN 
erml (rnfmei) ! Missing .ENDIF commands, and end of file. 


IF .ifstk C.ifstk (CO, ifstk padegthd. a bi _req_d] GEQ .depth THEN 
erml (rnfskc); ! ng ENDIF Commands detected when 
: a bo ing .REQUIRE files 


=PORIPOPIAPROPUPINOPOPURINUPINUNY 2 tt 


END; 'End of TSTCND 
0000 00 -ENTRY TSTCND, Save nothin ; 031 

50 000000006 EF D 0002 Rov.” JESTK, ns . b338 
04 : 0008 TSTL DEPTH > 0341 

08 0 ; BNEQ : 
000000006 bt pp i PUSHL #RNFME! ; 0342 
50 6 4 00018 1$: MULL2 > 0344 

oo000000cers SF 1 PUSHAB TF Stas t cao : 

04 Ac 3 D1 CPL acSP)+, DEPTH 
000000006 EF sateen i 3 6 $: CALLS ai ERM ; _ 
04 3 $f RET ‘ > 0348 


RSDERM 
v04-000 


; Routine Size: 


Mise. error checks and messa 
TSTCND == Check and report m 


54 bytes, Routine Base: 


sing .ENDIFs 


SCODES + 0051 


ie 


Sep-1 
Sep-1 


Be 14:07:58 


AX-11 Bliss- 
RUNOFF ..SRCJR 


2 V4.0- 
SEM OL 


177 


Page 


8 
(5) 
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M11 
error checks and messages. 16-Sep-1984 01:40:15 AX-11 Bliss-32 V4.0-74 e 3 
== Check for, report, ana restore missin 1 ~3007 1382 93:99:22 RUNOFF .SRCIRSDERM_BLI: ~— (6) 


ZSBITL ‘TSTRES == Check for, ft atts and restore missing .RESTOREs' 
ROUTINE tstres (depth) : NOVALUE = 


'e¢ 


FUNCTIONAL DESCRIPTION 
This routine checks to see if SAVSTK is ok: i.e. 


sR 


fie 


S 


e., certain open 
.SAVE/SAVE ALL and .RESTORE commands have been closed. If there are any 
unclosed commands it issues an error message and pops the stack. 
FORMAL PARAMETERS: 
DEPTH specifies the maximum allowed depth of .REQUIRE commands. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: None 
i 
i 
i 
i 

‘ 

i 
i] 
ie 


WANN 
~ 


AACAOO 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


' SIDE EFFECTS: None 


Se ee te Se Se ee Se Be ee Se Be Se SH ee 


BEGIN 
OWN 
x; 


LOCAL 
hold_iseqn, 
hold_page; 
x = .savstk CO, savstk_depthi; 
IF (.x EQL 0) THEN 
RETURN; ! No unclosed .SAVEs. 


IF “fopth GTR .savstk C.x, savstk_req.d] THEN 
RETURN; ! Unclosed SAVEs but in files still open. 


‘There are unclosed saves to be reported. 


POPIPIPONIPIPIPINIPINININININININYINININIPYNIAINININPOPIPPoNunufnofnonyd 
AAEM PPP EPI 


erml (rnfmrs); ! Missing .ReStore commands, at end of file. 


FUN 9 OONAUE WIN 9 OONAUE WN (OO DNOUE WN OOONAUSWN—O”) WoO 


! Now point the user back to the point where the corresponding 


WAI ANALAI AAAI AIA ANI AINAI NANA AAI WIAA AWA AWA AANAIAA WAIANAE om 
OOOO OOO O00 0000 00 09 09 09 09 09 09 SII NII NNN NIAAA AAAAAAOUMMIUIVIVMIVIVIVIVIENE 8-17 


DOOCOOOCOCOOCSOOOCOOCOOOOCOSSOSOOOOOOOCOOOOOOOOOOOOOCOOOOOOOOOO +s 


™~ 
SP et ek ek et 
ooooo 


MFwn— 


£9 5 ! SAVE/SAVEALL was made. 

% $ WHILE ( (.savstk CO, savstk_depth] GTR 0) 

74 99 (.depth LEQ .savstk C.savstk (CO, savstk_depth] , savstk_req_d]) ) DO 
00 BEGIN 


hold_page = .irac_ipagen; 

eg oes ¢ art, e 3a stk (CO, savstk_depth], savstk_ipagen] 
rac_ipagen = .sav -$av » Sav . sav 3 
irec7isegn = .savstk C.savstk 6° savstk depth), savsth Tseqnt: 


CAAA AINI PIE EE PIPIAINDPYPIPYPIPIPIPIPIPININPINPIPIDIPIDIPODID 8 3 9 Ot OO I SS SS SS SS 


Ponoforononofonoporory 
“ 
w 
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RSDERM Misc. error checks and messages. 16-Sep-1984 01:40:15 AX-11 Bliss-32 V4.0-74 P 
FoneG00 TSTRES == Check for, report. and restore missin 12-808-1382 93:99:22 RUNOFF. SRC REENM BL ict ies ao 
: 281 40 IF .gca_req_.depth NEQ 0 THEN ! Still in a require file, rewind 
; 28 0107 Sra Crntbak ! stack. therulee ust quit. 
s 2O 408 »Savstk (.savstk o. savstk_depth], savstk_ specb 
; Se att »-Savstk L.savstk CO, savstk_depth], savstk_fspecc] ); 
: 86 411 irac_ipagen = .hold_page; 
3 6er pols iracvisesn = shold. Tsean: 
: 3 Belz savres (h_restore,=1); ! Unstack one entry, regardless of identity. 
; 290 0415 $ 
3s el 0416 1 END; ! End of TSTRES 
-PSECT SOWNS,NOEXE,2 
00000 xX: -BLKB 4 
-PSECT SCODE$,NOWRT,2 
007C 00000 TSTRES: .WORD Save R2,R3,R4,R5,R6 3: 0350 
56 00000000" EF 9€E 00002 MOVAB 3 
55 000000006 EF 9E 00009 MOVAB IRAC+12, RS ; 
54 00000000G EF 9€E 00010 MOVAB SAVSTK, ; 
66 64 00 00017 MOVL SAVSTK, 3; 0382 
50 66 DO OOOIA MOVL xX, RO 3 0384 
7F 13 0001D BEQL «6s 3 : 
50 1C C4 OOOTF MULL2 #28, RO : 0387 
OC A440 SF 00022 PUSHAB SAVSTK+12CRO] F 
9E 04 AC 01 Boose CMPL DEPTH, a(SP)+ $ 
72 14 QOO2A BGTR 3$ 3 
00000000G 8F DD ett PUSHL #RNFMRS 3 0392 
00000000G_ EF 01 FB 00032 CALLS #1, ERML re 
51 64 D0 00039 1$: MOVL SAVSTK, R1 3; 0397 
60 15 0003C BLEQ 3 
50 51 17% «6¢S sits MULL3) #28, R1,_RO : 6399 
Oc A440 SF 0004 PUSHAB SAVSTK+{2CR0J F 
9E 04 AC D1 00046 CMPL EPTH, a(SP)+ é 
2 14 QO04A BGTR 3 
2¢ 6 DO 0004C MOVL IRAC+12, HOLD_PAGE 3; 0401 
5 FC AS 24 O04F MOVL IRAC+8, HO D_TSEQN ; 040 
50 51 is § O028 MULL3 k : 040 
10 A440 9F 0005 PUSHAB SAVSTK+16CROJ : 
65 43 dO oper OVL a(SP)+, IRAC+12 3 
14 A440 YF 00 5 PUSHAB SAVSTK+20(RO] 3; 0404 
FC AS 9E DO 0006 MOVL a(SP)+, IRAC+ ; 
000000006 FF D3 0066 TSTL CA+188 > 0406 
3 6c BEQL ; 
1C A440 9F 5 PUSHAB SAVSTK+28([RO] ; 0409 
9 pd PUSHL a@(SP)+ : 
18 A44 F 00074 PUSHAB SAVSTK+24(RO) ; 0408 
—E oO 78 PUSHL a@(SP)+ : 
000000006 8F ODD 7A PUSHL #RNFBAK 3 0407 
00000000G_ EF FB it CALLS #3, ERM 3 
65 1) 0087 2$: MOVL HOLD_PAGE, IRAC+12 3; 0411 
| 
oot j 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


¢ 6F 20 74 41 Q0000 P.AAA: .ASCII \At or near end of document\<0><0> 3 


20 64 6€ 65 20 72 61 6 
00 64 20 66 6F 0000F : 


5 6€ 20 7 
00 74 6€ 65 6D 75 63 6 


-PSECT SCODE$,NOWRT,2 
0 ENTRY Vetir ee Save R2 3 
52 FEDS CF 9 MOVAB Het a R2 ; 
1E 000000006 r E BLBC a 1$ 3 0444 
A ‘ #26 : 
16 


800000006 BF BD 


PUSHL WRNFLDE 


el 
RSDERM Misc. error checks and messages. $48 15 AX-11 Bliss-32 V4.0-742 P d 
v04-000 TSTRES == Check for, report, and restore missin 14-Sep-1984 2 933 $935 56 RUNOFF .SRCJRSDERM.BLI;1 a ; 
: +4 Oc ! GLOBAL ROUTINE tsttfe (depth) : NOVALUE = 
: 295 419 1 S44 
; 8 y } FUNCTIONAL DESCRIPTION 
: 298 04 § 1 ! This routine does pa, more than merely pass coontrol to each of 
; 299 Be 1! the respective test routines to check for unclosed lists, saves, etc. 
; 300 424 1! Oh, one exception: It now checks for being within a LITERAL. ‘If it 
: 4 Bf 5 ! } finds this to be true, it issues an error and closes the Literal. 
: $04 04 5 | FORMAL PARAMETERS: 
; B2 o¢ : i DEPTH specifies the maximum allowed depth of .REQUIRE commands. 
; 307 O43) { IMPLICIT INPUTS: None 
; 309 g238 i IMPLICIT OUTPUTS: None - 
: 311 0435 1 ! ROUTINE VALUE: 
: 3\§ O48 ! COMPLETION CODES: None 
; 314 0438 t SIDE EFFECTS: None 
: 316 0440 1 i+ 
s Si? 0441 1 
; «318 044 § BEGIN 
; 319 044 
3 $54 ere: IF “gear literal THEN ! If within a Literal; 
: 333 0446 erm tent lde that it wasn *t closed, 
; $57 ert ; -CHSPTR(UPLIT(*At or near a ° document'))! and where 
; 325 ee 3 Lit( h “end. literal ) ! and then close it. 
: 327 0451 2 tstblk i Geptnt's ' Check for unclosed Lists, notes, and Literals. 
3 328 Be 3g 2 tstcnd (.depth) i Check for unclosed ifs and ifnots. 
: $82 Beez § tstres (.depth) ! Check for unclosed saves. 
; 334 0455 1 END; ! End of TSTTFE 
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v04-000 TSTRES == Check for, report. end restore missin 1 =3007 1383 94:59:82 RUNOFF . SRCIRSDERM.BLI; ’ FH 
00000000G_ EF Hs 43 35 nt * ERM : 0ae9 

000000006 EF 1 FB CALLS #1, LIT : 
04 AC DD C 1$: PUSHL DEPTH + 0451 

62 01 FB F CALLS #1, TSTBLK ; 
04 AC 0DD é PUSHL 3; 0452 

51 A2 01 FB CALLS # TSTCND 8 
04 AC DD g PUSHL : 0453 

0087 C2 01 FB 0003C CALLS #1, TSTRES FH 
04 00041 RET 3; 0455 


; Routine Size: 66 bytes, Routine Base: SCODE$S + 0126 


; Se 0456 1 
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RSDERM Misc. error checks and messages. 16-5¢ -1984 01:40:15 AX-11 Bliss-32 V4.0-74 
yoe-000 TSTRES == Check for, repert. and restore missin 1 =30P 7} 38e 94:59:83 RUNOFF .SRCJRSDERM.BLI; 
: 457 1 GLOBAL ROUTINE pntbac : NOVALUE = 
3 5 4 8 1 !e4 
; $ 12h ! FUNCTIONAL DESCRIPTION 
: 8 461 1! This routine saves the input file Line/page information. It then 
§ 9 re 73 substitutes information {ree FRMSTK for that information. Then ERM is 
; 340 Bee 1? called to output a message indicating where to look in the input file 
; 341 464 1! for the command that made the stack gt But ERM does not have 
5 tg Bee? 1! enough de ig tid | to accept all that information as parameters. 
s 36 rh ¢ 1! However, it can pick it up from IRAC, which it does. In other words, 
$ te bcs ! this routine fakes out ERM a bit. 
: 346 469 1! After ERM returns, the original information is restored. 
: 347 0470 1! ° 
; 348 0471 1 !-- 
: 349 Berg BEGIN 
; 350 047 
: 51 0474 LOCAL 
3 326 0475 hold_iseqn, 
3; 2 0476 hold_page; 
> 354 0477 
. me 0478 hold_page = .irac_ipagen; 
; 356 0479 hold_iseqn = .irac_isegn; 
, Soar 0480 irac_ipagen = .frmstk C.frmstd, frmstk_ipagend; 
: 358 0481 irac_iseqn = .frmstk C.frmstd, frmstk_Tseqn]; 
; 359 048 erm (rnfbak 
: 360 048 oo frmstk po irasee. frmstk_fspecp) 
; 361 0484 -frmstk C.frmstd, frmstk_fspecc] ); 
: 362 0485 2 irac_ipagen = .hold_page: 
: 363 0486 2 irac_iseqn = .hold_Tseqn; 
: 364 0487 1 ND; ‘End of PNTBAC 
' 
003c 00000 -ENTRY PNTBAC, Save R2,R3,R4,R5 
55 00000000G FF 9€ BROS MOVAB FRMSTK=-32, RS 
54 000000006 EF 9 900 MOVAB IRAC+12, R4 
26 64 D 4 MOVL RAC+12, HOLD_PAGE 
5 FC A& 00 0001 MOVL IRAC+8, HOLD_TSEQN 
50 000000006 _ EF OF C5 0001 MULL3 #15 FRMSTD R 
64 6540 D0 0001F VL FRMSTK=32CROJ, IRAC+12 
FC Ba FC A208 i) 3 MOVL FRMSTK-36 a . IRAC+8 
9? A54 0D PUSHL FRMSTK-24LR 
4 A540 DD 0002D PUSHL FRMSTK-28CRO 
00000000G 8F DD 00031 SHL #RNFBAK 
00000000G_ EF 9 FB 00037 CALLS #3, ERM 
64 D0 00 E MOVL  HOLD_PAGE, IRAC+1 
FC AG 5 3 4 MOVL HOLD_ISEQN, IRAC+ 
4 00045 RET 


; Routine Size: 70 bytes, Routine Base: S$CODES + 0168 


: 365 0488 1 


rae 


aef 


oO 
o 
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yor-000 TSTRES == Check for, report.-end restore missin 12-8601 382 94:99:83 RUNOFF .SRCJRSDERM.BLI; — 
; wr 489 1 GLOBAL ROUTINE negind : NOVALUE = : 
; 368 436 1 ° ; 
: 9 4 1 !4¢ ; 
; ty £36 ! FUNCTIONAL DESCRIPTION: : 
: 7 494 1! NEGIND keeps track of attempted indents past the left side of the page. : 
: a 495 1! To avoid issuing so many error messages that the user would be annoyed, ; 
: 374 ret 1! it pnty issues an error message for the first such attempt. Other . 
; 375 497 1! violations are simply counted; the summary count is output by REMNEG : 
; 376 498 1! later. ; 
: as £8 1 i FORMAL PARAMETERS N 
: ! 3 one ; 
; 379 §ag% 1! ; 
; 380 8206 1 ! IMPLICIT INPUTS None ; 
s 381 5 1! ; 
; 3 0504 1! IMPLICIT OUTPUTS None . 
; 3 0505 1! : 
: 84 R208 1 ! ROUTINE VALUE: : 
>; 385 0507 1 ! COMPLETION CODES: None : 
> 386 0508 1! ; 
3 387 0509 1 ! SIDE EFFECTS: None : 
; 388 0510 1! : 
; 389 0511 1 !e- ; 
; 390 b2i¢ 1 ; 
; 5391 051 BEGIN : 
; 39 0514 : 
; 0515 IF .gca.nia EQL 0 THEN . 
: 94 0516 erml (rnfnia); : 
; 395 0517 : 
; 396 0518 gca_nia = .gca_nia + 1; : 
: 397 0519 1 ND; ‘End of NEGIND : 
04 00000 -ENTRY NEGIND, Save R2 3 : 
52 000000006 EF 9 9002 MOVAB GCA+166, R2 : ; 
62 05 000 TSTL GCA+160 3 : 
0D 12 00008 BNEQ 1$ 3 : 
00000000G 8F DD Bne8 PUSHL #RNFNIA ; 
00000000G_ EF 01 FB 0001 CALLS #1, ERML 3 
62 D6 OOOIA 18 INCL  GCA+160 F 
04 0001C RET 3 


; Routine Size: 29 bytes, Routine Base: SCODES + O1AE 


: 398 0520 1 


3; Routine Size: 
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Misc. error checks and messages. 18-5¢ -1984 01:40:15 AX-11 Bliss-32 V4.0-74 
TSTRES == Check for, report. and restore missin 1 =300n 138% 93:99:83 RUNOFF .SRCJRSDERM.BLI; 
} GLOBAL ROUTINE remneg : NOVALUE = 
1 e+ 
: } FUNCTIONAL DESCRIPTION: 
g ii ssues an error message indicating how many negative 
5 } ndents have been detected. Then resets the count to zero. 
; | Used together with NEGIND. 
531 FORMAL PARAMETERS: None 
§ | IMPLICIT INPUTS: None 
03 5 ; IMPLICIT OUTPUTS: None 
05 $ 1 ! ROUTINE VALUE: 
Be : ! : COMPLETION CODES: None 
0540 1 ! SIDE EFFECTS: None 
0541 1! 
b2¢§ 1 !-- 
0543 1 
Beee BEGIN 
9266 IF .GCA_NIA GTR 1 THEN ' 1 or zero means all accounted for. 
Fae 4 ermn (rnfnic, .gca_nia = 1); ! Subtract off reported negative indent 
0549 ca_nia = 0; ' This starts the counting over again. 
0550 1 END? ! End of REMNEG 2 __ . 


0004 00000 -ENTRY REMNEG, Save R2 
52 000000006 EF 9E 00002 MOVAB GCA+160, R2 
01 62 01 00009 CMPL GCA+160, #1 
11 13 000C BLEG ~=s«a1$ 
7E 2 1 ¢3 0000 SUBL3 #1, GCA+160, -<SP) 
000000006 8F DD 901 PUSHL #RNFNIC 
000000006 EF ; FB 0 01 CALLS #2, ERMN 
62 04 OOO1F 1$ CLRL GCA+160 
04 00021 RET 
34 bytes, Routine Base: S$CODE$S + 01CB 
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H 12 
ages. 16-Sep-1984 01:40:15 AX-11 Bliss-32 V4.0-74 
-- Controls R/L margin-violation error me 13-88-1382 93:99:82 RUNOFF .SRCJRSDERM.BLI; 


ZSBTTL 'XMARG == Controls R/L_margin violation error messages‘ 
GLOBAL ROUTINE xmarg : NOVALUE = 


eo 

' FUNCTIONAL DESCRIPTION: 
XMARG keeps track of attempted margin crossings (i.e., left 
margin exceeds right margin). To avoid issuing so many 
messages that the user would be annoyed, it only issues 
an error message for the first such attempt. Other violations 
are simply counted; the summary count is output by REMMRG Later. 

FORMAL PARAMETERS: None 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


ee 


BEGIN 


IF .gca_xmarg EQL 0 THEN 
erml (rnfmrg); 


ca_xmarg = .gca_xmarg + 1; 
END? q gca_ g 


'End of XMARG 
0004 00000 .ENTRY XMARG, Save R2 
52 000000006 EF i: 9002 MOVAB GCA+164, R2 
62 D 000 TSTL GCA+164 
OD 12 00008 BNEG ~=*'1$ 
000000006 BF DD 9000 PUSHL #RNFMRG 
000000006 EF 01 FB 0001 CALLS #1, ERML 
62 B6 000A 1$: INCL  GCA+164 
4 1c RET 


29 bytes, Routine Base: SCODE$S + O1ED 


; Routine Size: 
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RSDERM Misc. error checks and messages. 1b-5e 1984 40:15 AX-11 Bliss-32 V4.0-74 
v04-000 REMMRG == reports # of crossed margin errors 1 73007138 93:69:82 ERUNOFF SRE RSDERM.BLI; 
3; 4 5 1 XSBTTL 'REMMRG -- reper ts # of crossed margin errors’ 
3 ree} § : GLOBAL ROUTINE REMMRG : NOVALUE = 
: 469 1 !44 
3 rth : FUNCTIONAL DESCRIPTION: 
: 47 91 1 Issues an error message indicating how many crossed 
3 rt 3 : margins have been detected. Then resets the count to zero. 
; $f? 0394 : Used together with XMARG. 
: 47? 296 | FORMAL PARAMETERS: None 
: 479 298 { IMPLICIT INPUTS: None 
: 481 6 { IMPLICIT OUTPUTS: None 
: 48 0602 1 | ROUTINE VALUE: 
é tee se : COMPLETION CODES: None 
: 486 0605 | SIDE EFFECTS: None 
: 488 0607 1 i-- 
> 489 0608 1 
: 490 0609 BEGIN 
> 491 0610 
; 49 0611 IF .gca_xmarg GTR 1 THEN ! 1 or zero means all accounted for. 
3 ret p6i¢ ermn (rnfmrc, .gca_xmarg - 1); ! Subtract off reported negative indent 
: 495 0614 ca_xmarg = 0; ' This starts the counting over again. 
; 4696 0615 1 END? 8 ' End of REMMRG ri ee 
0004 00000 ENTRY REMMRG, Save R2 
52 000000006 EF 9E 0000 MOVAB GCA+164, R2 
01 $¢ 4 00 CMPL GCA+164, #1 
1 ; BORE BLEQ 1$ 
7E 62 BF 4 SUBL3 #1, GCA+164, -(SP) 
00000000G 8F DD 1 PUSHL #RNFMRC 
00000000G_ EF $ FB 0001 CALLS #2 cae 
é pA 9 1F 1$: CLRL  GCA+164 
4 21 RET 

; Routine Size: 34 bytes, Routine Base: SCODES + 020A 


‘End of module 


Page 18 


(12) 


* 
e 
- 
o 
o 
2 
. 
. 
. 
o 
ao 
. 
a 
. 
. 
. 
e 
. 
° 
. 
ca 
. 
. 
. 
. 
. 
. 
. 
. 
. 
7 
+ 
a 
. 
e 
. 
@ 
- 
a 
. 
a 
. 
a 
. 
o 
. 
ao 
° 
. 
. 
o 
. 
om 
. 
o 
- 
om 
~ 
o 
. 
on 
* 
e 
. 
2 
. 
. 
. 
. 
. 
oe 
. 
a 
o 
o 
o 
° 
. 
2 
. 
. 
. 
a 
. 
ao 
7 
. 
. 
a 
. 
. 
- 
. 
. 
c 
. 
o 
. 
om 
. 
a 
. 
. 
7 
. 
. 
. 
. 
. 
. 
° 
. 
oe 


1boSeo-1984 01:40:15 


BSpern Misc. error checks and messages 
v04-000 REMMRG == reports # of crossed margin errors 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 556 NOVEC,NOWRT, RD , EXE,NOSHR, 
; SOWNS » WRT, RD *NOEXE, NOSHR, 
; SPLITS 28 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
Library Statistics 
woceee=- Symbols <------- 
File Total Loaded Percent 


Sete ee ee Ge Ge ee 


$255$DUA28: HEAT gia .L32;1 


$255$DUA28 


RUNOFF .SRCJDSRLIB.L32;1 


1308 


COMMAND QUALIFIERS 


28 


2 


LCL, REL, 
LCL, REL, 
LCL, REL, 


Pages 
Mapped 


252 
86 


AX-11 Bliss-32 V4.0-7 Page 19 
RUNOFF .SRCJRSDERM. SLI: (12) 


CON,NOPIC,ALIGN(2) 
CON, NOPIC,ALIGN(2) 
CON,NOPIC ,ALIGN(2) 


Processing 
Time 


00:00:3 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RSDERM/OBJ=OBJ$:RSDERM MSRC$:RSDERM/UPDATE=(ENHS$:RSDERM) 


Size: 


556 code + 32 data bytes 


Run 
Sleeeed tee: 
Lines/CPU Min: 


eames 
ee 


CPU-Min: cri 
Used: 58 pages 
ion Complete 


<D 


CORPORATION 


POUIPMENT 
ARY 


NTIAL_ AND PROPRIET 


